home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Info-Mac 4
/
Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso
/
Development
/
Source
/
DBL Pascal Library
/
DefProcs
/
PopUp
/
patch.a
< prev
next >
Wrap
Text File
|
1991-10-21
|
261b
|
20 lines
;asm patch.a -l -h
proc
a ds.l 1
w ds.w 1
e nop
move.l 4(sp),-(sp)
lea.l j(pc),a0
move.l a0,-(sp)
movea.l a(pc),a0
jmp (a0)
j movea.l (sp)+,a0
movea.l (sp)+,a1
movea.l (a1),a1
move.w w(pc),d0
cmp.w 2(a1),d0
ble.s r
move.w d0,2(a1)
r jmp (a0)
end